0 REM *************************
1 REM *                       *
2 REM * LAUFSCHRIFT ANSEHEN : *
3 REM *                       *
4 REM * POKE 1018,0:SYS49152  *
5 REM *                       *
6 REM *************************
10 POKE53272,23:POKE53280,0:POKE53281,0
50 PRINT"[147][204]ESE [196]ATEN EIN.....[194]ITTE WARTEN [211]IE....."
60 FORI=56256TO56295:POKEI,1:NEXT
8999 REM **** MASCHINENSPRACHE ****
9000 DATA120,169,31,141,20,3,169,192,141,21,3,173,17,208,41,127,141,17,208,169
9010 DATA186,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208,48,7,173
9020 DATA13,220,88,76,49,234,173,84,195,201,6,240,16:REM _LAENGE 1.UNTERPRG.
9040 DATA169,6,141,84,195,169,1,141,18,208
9041 DATA32,0,193,76,188,254
9090 DATA169,0,141,84,195,169,231,141,18,208
9091 DATA169,200,141,22,208,76,188,254
9210 DATA120,169,49,141,20,3,169,234,141,21,3,169,240,141,26,208,88,96
9300 FORI=49152TO49256:READQ:POKEI,Q:NEXT
9400 DATA174,251,3,202,142,251,3,142,22,208,224,255,240,1,96,162,7,142,251,3
9410 DATA142,22,208,162,0,189,193,7,157,192,7,232,224,39,208,245,174,250,3,232
9420 DATA142,250,3,189,0,194,141,231,7,96
9500 FORI=49408TO49457:READQ:POKEI,Q:NEXT:POKE1019,0:POKE1018,0
9999 PRINT"[147]"
10000 PRINT"[158]  [204]AUFSCHRIFTGENERATOR VON S.[199]OEBBELS":PRINT"[205]ENUE:"
10001 PRINT"-1- [197]RSTELLEN DER [204]AUFSCHRIFT"
10002 PRINT"-2- [193]NSEHEN DER [211]CHRIFT"
10003 PRINT"-3- [211]PEICHERN ([196]ISK)"
10004 PRINT"-4- [193]ENDERN DES [212]EXTES"
10005 INPUT"[201]HRE [215]AHL ";A
10006 IFA=1THENSYS49239:POKE53270,200:GOTO20000
10007 IFA=2THENPOKE1018,0:PRINT"[147]":SYS49152:GOTO10000
10008 IFA=3THENSYS49239:POKE53270,200:GOTO30000
10009 IFA=4THENSYS49239:POKE53270,200:GOTO40000
10010 GOTO9999
20000 PRINT"[147][196]ER [212]EXT DARF MAX. ETWAS LAENGER ALS 6"
20001 PRINT"[218]EILEN SEIN. (MAX. 256 [218]EICHEN)"
20002 PRINT"[215]ENN [211]IE DEN [212]EXT EINGEGEBEN HABEN,"
20003 PRINT"[196]RUECKEN [211]IE BITTE [210]ETURN."
20004 INPUT"[212]EXT ";A$:A$="":GOSUB48000:GOTO9999
30000 PRINT"[147]":INPUT"[198]ILENAMEN ";A$:IFA$=""THEN30000
30001 PRINT"[194]ITTE WARTEN..."
30009 OPEN1,8,1,A$
30010 PRINT#1,CHR$(0);CHR$(192);:FORI=49152TO49664+255:W=PEEK(I)
30020 PRINT#1,CHR$(W);:NEXTI:CLOSE1
30030 PRINT"[196]AS EBEN ERZEUGTE [208]ROGRAMM KOENNEN [211]IE"
30031 PRINT"SPAETER ABSOLUT LADEN UND MIT [211][217][211]49152"
30032 PRINT"AKTIVIEREN."
30033 PRINTTAB(32)"[210]ETURN"
30034 GETA$:IFA$=""THEN30034
30035 GOTO9999
40000 PRINT"[147][211]IE KOENNEN DEN UNTEN STEHENDEN [212]EXT"
40001 PRINT"AENDERN. [193]CHTEN [211]IE JEDOCH AUF DAS AUTO-"
40002 PRINT"MATISCHE [218]EILENSCROLLING. [196]RUECKEN [211]IE"
40003 PRINT"[159][210][197][212][213][210][206] UM ZU ENDEN."
40004 FORI=0TO255:POKE1344+6+I,PEEK(49664+I):NEXT
40005 PRINT"":INPUT"[212]EXT ";A$:GOSUB48000:GOTO9999
48000 FORI=0TO255:POKE49664+I,PEEK(1024+I+8*40+6):NEXT:RETURN